DEFINITION MODULE OptLocaleL {"locale.library",-38};
(* 04-Sep-92/bp *)

FROM SYSTEM IMPORT
  ADR, ADDRESS;
FROM DosD IMPORT
  Date;
FROM UtilityD IMPORT
  HookPtr;
IMPORT
  R,
  ed : ExecD,
  el : ExecL,
  d:LocaleD;


CONST
  localeName="locale.library";
VAR
  localeVersion:INTEGER;
  localeBase:d.LocaleBasePtr;

PROCEDURE CloseCatalog(catalog{R.A0}:d.CatalogPtr); CODE -36;
PROCEDURE CloseLocale(locale{R.A0}:d.LocalePtr); CODE -42;
PROCEDURE ConvToLower(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):LONGCARD; CODE -48;
PROCEDURE ConvToUpper(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):LONGCARD; CODE -54;
PROCEDURE FormatDate(
            locale{R.A0}:d.LocalePtr;
            template{R.A1}:ADDRESS;
            VAR date{R.A2}:Date;
            putCharFunc{R.A3}:HookPtr); CODE -60;
PROCEDURE FormatString(
            locale{R.A0}:d.LocalePtr;
            string{R.A1}:ADDRESS;
            dataStream{R.A2}:ADDRESS;
            putCharFunc{R.A3}:HookPtr):ADDRESS; CODE -66;
PROCEDURE GetCatalogStr(
            catalog{R.A0}:d.CatalogPtr;
            stringNum{R.D0}:LONGINT;
            defaultString{R.A1}:ADDRESS):ADDRESS; CODE -72;
PROCEDURE GetLocaleStr(
            locale{R.A0}:d.LocalePtr;
            stringNum{R.D0}:LONGINT):ADDRESS; CODE -78;
PROCEDURE IsAlNum(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -84;
PROCEDURE IsAlpha(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -90;
PROCEDURE IsCntrl(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -96;
PROCEDURE IsDigit(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -102;
PROCEDURE IsGraph(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -108;
PROCEDURE IsLower(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -114;
PROCEDURE IsPrint(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -120;
PROCEDURE IsPunct(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -126;
PROCEDURE IsSpace(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -132;
PROCEDURE IsUpper(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -138;
PROCEDURE IsXDigit(
            locale{R.A0}:d.LocalePtr;
            character{R.D0}:LONGCARD):BOOLEAN; CODE -144;
PROCEDURE OpenCatalogA(
            locale{R.A0}:d.LocalePtr;
            name{R.A1}:ADDRESS;
            tags{R.A2}:ADDRESS):d.CatalogPtr; CODE -150;
PROCEDURE OpenLocale(name{R.A0}:ADDRESS):d.LocalePtr; CODE -156;
PROCEDURE ParseDate(
            locale{R.A0}:d.LocalePtr;
            VAR date{R.A1}:Date;
            template{R.A2}:ADDRESS;
            getCharFunc{R.A3}:HookPtr):BOOLEAN; CODE -162;
PROCEDURE StrConvert(
            locale{R.A0}:d.LocalePtr;
            string{R.A1}:ADDRESS;
            buffer{R.A2}:ADDRESS;
            bufferSize{R.D0}:LONGCARD;
            type{R.D1}:LONGCARD):LONGCARD; CODE -174;
PROCEDURE StrnCmp(
            locale{R.A0}:d.LocalePtr;
            string1{R.A1}:ADDRESS;
            string2{R.A2}:ADDRESS;
            length{R.D0}:LONGINT;
            type{R.D1}:LONGCARD):LONGINT; CODE -180;

END OptLocaleL.lib-38
